*SET PROC TO SOSPRO1
SET CENT ON
SET PROC TO SOSPRO
SET PROC TO BOXPROC
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
DO START
DR='n:'
dr1='N:'
DR2='Q:'
F3='SUPPLIER'
F6='COMPANY'
PL1=0
DO WHILE PL1=0
   SET COLO TO BG+/B
   CLEA
   DO ADDRESSA
*   DO BOXT WITH 4,3,'INVENTORY  MANAGEMENT','N+','BG',.T.,.T.
   DO ADDRTITL WITH ' I N V E N T O R Y    M A N A G E M E N T '
   SET COLOR TO W+/NX
   @  11, 5 CLEA TO 19,45
   SET COLOR TO N/BG,W+/N
   @ 10, 3 CLEA TO 18,43
   @ 10, 3 TO 18,43 DOUBLE
   @ 11, 5 PROMPT " A .. STORE INVENTORY CONTROL      "
   @ 13, 5 PROMPT " B .. ENTRY IN STORE               "
   @ 15, 5 PROMPT " C .. PRINT CONTROLLED INVENTORY   "
   @ 17, 5 PROMPT " X .. END OF SESSION"
   MENU TO PL1
   SET COLO TO BG+/B,w+/n
   SHRT=SPACE(4)
   KODE=SPACE(5)
   STORE SPACE(6) TO F1,QANT,UNIT,F11
   TIPE=SPACE(12)
   STORE SPACE(16) TO APPL,APPS
   NAME=SPACE(20)
   DO CASE
      CASE PL1=1
         DO INVA
      CASE PL1=2
         DO INVB
      CASE PL1=3
         DO INVH
      CASE PL1=4 .OR. LASTKEY()=27
         CLEA
         return
   ENDCASE
   PL1=0
ENDDO
